* lisp/info-xref.el (info-xref-docstrings): Replace cl function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f23c96edd68b3cde34c1673e9c0d621a07443ce6..1912bf9ad0c461671238297e1ce29758974b1495 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-16  Glenn Morris  <rgm@gnu.org>
+
+       * info-xref.el (info-xref-docstrings): Replace cl function.
+
 2011-01-16  Kevin Ryde  <user42@zip.com.au>
 
        * info-xref.el: Version 3.

diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index a92d9d89da62c8fb395271e59c4d6e717863059e..cdeba932eda7b2d1681700cfc1772a48e0f83ce9 100644 (file)
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -479,20 +479,21 @@ in the files, the Lisp code checked doesn't have to be loaded,
 and links can be in the file commentary or elsewhere too.  Even
 .elc files can usually be checked successfully if you don't have
 the sources handy."
-
   (interactive
-   (let* ((default       (and buffer-file-name
+   (let* ((default (and buffer-file-name
                               (file-relative-name buffer-file-name)))
-          (prompt        (if default
-                             (format "Filename with wildcards (%s): "
-                                     default)
-                           "Filename with wildcards: "))
-          (pattern       (read-file-name prompt nil default))
-          (filename-list (file-expand-wildcards pattern
-                                                t))) ;; absolute filenames
-     (eval-and-compile
-       (require 'cl)) ;; for `remove-if'
-     (setq filename-list (remove-if 'info-xref-lock-file-p filename-list))
+          (prompt (if default
+                      (format "Filename with wildcards (%s): "
+                              default)
+                    "Filename with wildcards: "))
+          (pattern (read-file-name prompt nil default))
+          ;; absolute filenames
+          (filename-list (file-expand-wildcards pattern t))
+          newlist)
+     (setq filename-list
+           (dolist (file filename-list (nreverse newlist))
+             (or (info-xref-lock-file-p file)
+                 (push file newlist))))
      (unless filename-list
        (error "No files: %S" pattern))
      (list filename-list)))